home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / themes.mrc < prev    next >
Encoding:
Text File  |  2000-02-29  |  5.7 KB  |  228 lines
  1. ctcp *:*:# {
  2.   haltdef
  3.   if ($1- == $null) return
  4.   if ($istok(%ctcpignores,$1,32)) return
  5.   if ($form(mIRC,chanctcp)) iecho $readini %formats mIRC chanctcp
  6.   else iecho $hc($nick) has requested a channel $sc($1) on $hc($target) at $hc($atime) $+ $cpms($2-)
  7.   if ($iscloaked($fulladdress,$1)) {
  8.     if ($form(mIRC,cloaked)) iecho $readini %formats mIRC cloaked
  9.     else iecho CTCP $hc($1) $sc(reply) to $u($hc($nick)) cloaked...
  10.   }
  11. }
  12. ctcp *:*:? {
  13.   if ($1 == DCC) return
  14.   haltdef
  15.   if ($1- == $null) return
  16.   if ($istok(%ctcpignores,$1,32)) return
  17.   if ($ispwctcp1($1)) tokenize 32 $1 $str(*,$len($2)) $3-
  18.   elseif ($ispwctcp2($1)) tokenize 32 $1 $str(*,$len($2)) $str(*,$len($3)) $4-
  19.   if ($form(mIRC,ctcp)) iecho $readini %formats mIRC ctcp
  20.   else iecho CTCP $hc($1) $sc(request) by $u($hc($nick)) at $hc($atime) $+ $cpms($2-)
  21.   if ($iscloaked($fulladdress,$1)) {
  22.     if ($form(mIRC,cloaked)) iecho $readini %formats mIRC cloaked
  23.     else iecho CTCP $hc($1) $sc(reply) to $u($hc($nick)) cloaked...
  24.   }
  25. }
  26. on ^*:ACTION:*:# {
  27.   if ($form(mIRC,action)) $readini %formats mIRC action
  28.   else echo $colour(Action) -tli2 $chan * $pst($nick,$chan) $+ $iif($chan != $target,:) $+ $iif($chan != $target,$target) $1-
  29.   haltdef
  30. }
  31. on ^*:BAN:# {
  32.   if ($form(mIRC,ban)) {
  33.     $readini %formats mIRC ban
  34.     haltdef
  35.   }
  36. }
  37. on ^*:DEOP:# {
  38.   if ($form(mIRC,deop)) {
  39.     $readini %formats mIRC deop
  40.     haltdef
  41.   }
  42. }
  43. on ^*:DEVOICE:# {
  44.   if ($form(mIRC,devoice)) {
  45.     $readini %formats mIRC devoice
  46.     haltdef
  47.   }
  48. }
  49. on ^*:INVITE:# {
  50.   if ($left($active,1) == @) {
  51.     if ($form(mIRC,invite1)) {
  52.       $readini %formats mIRC invite1
  53.       haltdef
  54.     }
  55.   }
  56.   else {
  57.     if ($form(mIRC,invite2)) {
  58.       $readini %formats mIRC invite2
  59.       haltdef
  60.     }
  61.   }
  62. }
  63. on ^*:JOIN:# {
  64.   if ($nick == $me) {
  65.     if ($form(mIRC,joined)) {
  66.       $readini %formats mIRC joined
  67.       haltdef
  68.     }
  69.   }
  70.   elseif ($mflag(options,n2,19) == 0) {
  71.     if ($form(mIRC,join1)) {
  72.       $readini %formats mIRC join1
  73.       haltdef
  74.     }
  75.   }
  76.   elseif ($mflag(options,n2,19) == 1) {
  77.     if ($form(mIRC,join2)) {
  78.       $readini %formats mIRC join2
  79.       haltdef
  80.     }
  81.   }
  82. }
  83. on ^*:KICK:# {
  84.   if (($knick == $me) && ($chan ischan)) {
  85.     if ($form(mIRC,kickme)) {
  86.       $readini %formats mIRC kickme
  87.       haltdef
  88.     }
  89.     if (1) {
  90.       if ($form(mIRC,kickrejoin)) {
  91.         $readini %formats mIRC kickrejoin
  92.         haltdef
  93.       }
  94.     }
  95.   }
  96.   else {
  97.     if ($form(mIRC,kick)) {
  98.       $readini %formats mIRC kick
  99.       haltdef
  100.     }
  101.   }
  102. }
  103. on ^*:MODE:# {
  104.   if ($form(mIRC,mode)) {
  105.     $readini %formats mIRC mode
  106.     haltdef
  107.   }
  108. }
  109. on ^*:NICK {
  110.   set %i 0
  111.   :start
  112.   inc %i
  113.   if ($comchan($newnick,%i) != $null) {
  114.     if ($form(mIRC,nick)) {
  115.       $readini %formats mIRC nick
  116.       haltdef
  117.     }
  118.     goto start
  119.   }
  120. }
  121. on ^*:NOTICE:*:# {
  122.   if ($form(mIRC,notice)) $readini %formats mIRC notice
  123.   else echo $colour(Notice) -ti2 $chan - $+ $pst($nick,$chan) $+ : $+ $target $+ - $1-
  124.   haltdef
  125. }
  126. on ^*:OP:# {
  127.   if ($form(mIRC,deop)) {
  128.     $readini %formats mIRC op
  129.     haltdef
  130.   }
  131. }
  132. on ^*:PART:# {
  133.   if ($mflag(options,n2,19) == 0) {
  134.     if ($form(mIRC,part1)) {
  135.       $readini %formats mIRC part1
  136.       haltdef
  137.     }
  138.   }
  139.   elseif ($mflag(options,n2,19) == 1) {
  140.     if ($form(mIRC,part2)) {
  141.       $readini %formats mIRC part2
  142.       haltdef
  143.     }
  144.   }
  145. }
  146. on ^*:QUIT {
  147.   if ($mflag(events,default,3) == 3) return
  148.   if ($mflag(events,default,3) > 0) echo $colour(Quit) -tsi2 *** $nick quit IRC $paren($1-)
  149.   if ($mflag(events,default,3) == 1) return
  150.   set %i 0
  151.   :start
  152.   inc %i
  153.   if ($comchan($nick,%i) != $null) {
  154.     if ($mflag(options,n2,19) == 0) {
  155.       if ($form(mIRC,quit1)) $readini %formats mIRC quit1
  156.       else echo $colour(Quit) -ti2 $comchan($nick,%i) *** $nick has left IRC $paren($1-)
  157.     }
  158.     elseif ($mflag(options,n2,19) == 1) {
  159.       if ($form(mIRC,quit2)) $readini %formats mIRC quit2
  160.       else echo $colour(Quit) -ti2 $comchan($nick,%i) *** Quits: $nick $paren($1-)
  161.     }
  162.     goto start
  163.   }
  164.   haltdef
  165. }
  166. on ^*:SERVERMODE:# {
  167.   if ($form(mIRC,servermode)) {
  168.     $readini %formats mIRC servermode
  169.     haltdef
  170.   }
  171. }
  172. on ^*:SERVEROP:# {
  173.   if ($form(mIRC,serverop)) {
  174.     $readini %formats mIRC serverop
  175.     haltdef
  176.   }
  177. }
  178. on ^*:SNOTICE:* {
  179.   if (($left($active,1) == @) || (%snotice == off)) {
  180.     if ($form(mIRC,servernotice1)) $readini %formats mIRC servernotice1
  181.     else echo $colour(Notice) -tsi2 $sc(-) $+ $hc($nick) $+ $sc(-) $1-
  182.   }
  183.   else {
  184.     if ($form(mIRC,servernotice2)) $readini %formats mIRC servernotice2
  185.     else echo $colour(Notice) -tai2 $sc(-) $+ $hc($nick) $+ $sc(-) $1-
  186.   }
  187.   haltdef
  188. }
  189. on ^*:TEXT:*:# {
  190.   if ($form(mIRC,text)) $readini %formats mIRC text
  191.   else echo $colour(Normal) -tli2 $chan < $+ $pst($nick,$chan) $+ $+ $iif($chan != $target,:) $+ $iif($chan != $target,$target) $+ > $1-
  192.   haltdef
  193. }
  194. on ^*:TOPIC:# {
  195.   if ($form(mIRC,topic)) $readini %formats mIRC topic
  196.   else echo $colour(topic) -ti2 $chan *** $pst($nick,$chan) changes the topic to ' $+ $1- $+ '
  197.   haltdef
  198. }
  199. on ^*:UNBAN:# {
  200.   if ($form(mIRC,unban)) {
  201.     $readini %formats mIRC unban
  202.     haltdef
  203.   }
  204. }
  205. on ^*:USERMODE {
  206.   if ($form(mIRC,mode)) {
  207.     $readini %formats mIRC usermode
  208.     haltdef
  209.   }
  210. }
  211. on ^*:VOICE:# {
  212.   if ($form(mIRC,voice)) {
  213.     $readini %formats mIRC voice
  214.     haltdef
  215.   }
  216. }
  217. on ^*:WALLOPS:* {
  218.   if (($left($active,1) == @) || (%wllp == off)) {
  219.     if ($form(mIRC,wallops1)) $readini %formats mIRC wallops1
  220.     else echo $colour(Wallops) -tsi2 $sc(!) $+ $hc($nick) $+ $sc(!) $1-
  221.   }
  222.   else {
  223.     if ($form(mIRC,wallops2)) $readini %formats mIRC wallops2
  224.     else echo $colour(Wallops) -tai2 $sc(!) $+ $hc($nick) $+ $sc(!) $1-
  225.   }
  226.   haltdef
  227. }
  228.